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> 

> Module: Cfflnd2 { continuation of Cmnd.Rssem } 
> 

> This module contains all the code associated MJith processing 

> the System commands. 
> 

> PROCEDURE Sys_Bead 

> PROCEDURE Sys_Write 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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.FIN 
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> 

> Procedure: SysJ^ead 

> This procedure is the System Read command for Uidget. It 

> allows the host to read up to 8 sequential blocks without 

> sending any additional commands. Between each block status 

> is passed back to the host with the data, and the host must 

> set CHD before the next block can be read. In genera I j, the protocol 

> is about the same as in Pro_Read. 



> 
> 


Inputs: { none > 




> 


Outputs: { none } 




> 


Algorithm: 




> 


BEGIN 




> 


Ld 1 gclBlk< Wid_LogJOffset > 




> 


Count := Ld_Paraffl1.FirstParam 




> 


Offset := 




> 


BlockNumber := LoadJ_og i ca 1 




> 


ClrNormStat 




> 


6et_Type_Check< BlockNumber + Count > 




> 


Seek_Type := Recess 




> 


DiskStat.Ur Op := False 




> 


OverLap 




> 


IF NOT< ReadBlock > 




■> 


THEN 




> 


SS_RdErr 




> 


Goto ProJ^d Exit 




> 


i4HILE ftlways DO 




> 


BlockNumber := BlockNumber + 1 




> 


IF NOT<: SrchJCache > 




> 


THEN OverLap 




> 


IF NOT< Read_Fast ) 




•> 


THEN Goto Pro_Rd_Exit 




> 


ELSE 




> 


IF BIkStat.Bad Block 




> 


THEN GoTo Pro_Rd_BB 




> 


IF < Count > 1 > 




> 


THEN 




> 


Command-Pending, IBsy := True, Response 


:= SysJ=5d_Besp 


> 


Rd 1 eaye2 





;> ELSE Rd_Leave 

; > Count := Count - 1 

; > END 

• ■^ 
t 
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.FIN 
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.FIH 



Sus-Read : 



Ld Ur k_ I o+$fi , «Sys_Rd_Resp 
Cal I Sys^etUp 



Sys JJd JSeek : 



>ys_Rd J_p : 



Sys-RdJOvrLp: 
Sys-Bd Jiext : 
Sy£_Rd_H1: 



Sys_Rd_l1ore : 

Sy£_RdErr : 
Sys_BErr 1 : 



Sys_Rd_BB: 



Ld 
Rnd 

Call 

Call 

Jr 

Jr 

Call 
Jr 

find 
Ld 

Call 
Jr 

Tm 
Jr 

Ld 
Ld 
Djnz 

Jp 

Call 
Jr 

.Page 

Push 

Call 

Pop 

Push 

Push 

Call 

Pop 

Pop 

Jr 

Call 
Jr 

Push 
Call 
Jr 



Seek-Type, *flccess 

Disks tat, *$FF-WrJOp 

Sys_Rw_Seek 

ReadBiock 

Hz,Sys_Rd_Hext 

Sys_RdErr 

Sys_lnc_Blk 
Hz,Sys_Rd_Seek 

!rO,«$3F ;iiiask off head value 
Sector, !rO 

Read_Fast 
Z,Sys_Rd_Err 

BlkStat,*B_B{ock ; check if bad block came back! 
N2,Sys_Rd_BB 

Wrk_l o+$fl, «Sys_Rd_Rssp 
Mrk_l o+$B, «Cinnd_Pend i ng+ 1 Bsy 
lr4,Sys_RdJ1ore 

Rd_Leaye 

Rd_Leave 1 
Sys_Rd_Lp 



fr4 ;save block count 

ReadJCoffiinon ; retry for exception handling 

Ir4 ;get block count 

Flags jsave result 

!rO jsave return code 

Load_Loqical ; restore block number sequence 

IrO 

Flags 

N2,Sys_Rd^ext 

Da ta_£x_Hand I er 
SysJChk_FtJ 



Ir4 

Pro-Bd_BB 
Sys_RErr t 



;saue block count 



SysJChk_Ftl 



Chk_FatalStat; 



Call 
Jp 

Call 
Jr 

Ld 

Ld 

Lde 

Tro 

Ret 



ChkJ^atalStat 
NZj,Rd^eave 

Clr-NormStat 
Sys_Rd_H1 



;get out if fatal error 



!r2,«.HIBVTE. CStatusO 

!r3,«.L0WBVTE. CStatusO 

Ir0,§!!r2 ;get 1st byte of standard stat 

! rO , *Op_Fa i I ed ; check i f opera t i on f a i I ed 



SysJSetUp: Call flck_Read 

Call CIrHormStat 

Ld !rO,«Sys_LogJOffset 

Call Ld_LgclBlk 

Call Ld_Param1 

Or !rO, !rO ; check for zero count 

Jr Nz.SysJSetl 

Call Rbort 

SysJSetl: Ld !r4, !rO ; Count := . . . 

Ca 1 1 Load_Log i ca I 

Ld !rOJr4 

Dec !rO ; account for numbering \ . .n 

fidd IrEJrO 

fide ?rD,«0 

fide !rC,«0 

Ld !r2.».H!BVTE. Get_TMpe_Check 

Ld fr3,».L0UBVTE. Get_fypeJCheck 

Col I BonkJCai I 

Cal i Load-Logical 

Ld Da ta-Type , *User -Type 

Ld Wrk_lo+$C,».HIBYTE. WBufferl ;qet ready for more writes 

Ld Wrk_lo+$D,«.L0WBVTE. UBufferl 

Ret 

Sys_Riu_Seek : Push !r4 ;saye state 

Ld lr2,«.HIBVTE. OverLap 

Ld !r3,«.L0WBVTE. OMerLop 

Cal I BankJCall 

Pop lr4 

Call Load_Logical 
Ret 

SMS_lnc_Blk: Add !rE.*$01 ;BlockHufflber := BlockHuraber + 1 

Rdc !rD,«0 

fide !rC,*0 

Ld !r2,«.HIBVTE. LogicalBlock 

Ld I r3,#.L0UBVTE. LogicalBlock 

Ld !r1,«3 

Ld !r0,#Wrk_Sys+$0C 



Sy£_lnc_Lp: Ldef §«!r2,e«r0 

j nz ! r 1 , Sys_ I ncJ.p 

Call SrchJCache ;get the nesj physical adr 

Tm BlkStat,*CachSeek+CachHdChg ; check for Head change 

Ret 
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> 

> Procedure: Sys-Write 
> 

> This procedure is the System i4rite command for i4idget. In 

> general it Is a major departure from the ProFlle write 

> protocol: Status is not sent back to the host unless 

> there is useful information in that status - the fact that 

> there were no errors in a block transfer Is communicated 

> to the host via Response Byte that is handshaken across 

> at CMD/BSV time. If an error has occured^ than the host 

> is to recognize this state and come back to read the status 

> from the controller, otherwise it is assumed that the next 

> thing that the controller wants is write data. Mote that 

> the second handshake < data received acknowledgment > 

> has been removed from this protocol . 
:> 

> Inputs: { none ) 
> 

> Outputs: { none } 
> 

> fl I gor i thm : 
> 

> BEGIN 

> Ld_LgclBlk< Mid_LogJDffset > 

> Count := LdJParaml.FirstParam 

> BlockHumber := LoadJLogicai 

> CIrNor-fflStat 

> BlockHumber- := BlockHumber 

> Get_Type_JCheck< BlockHumber + Count > 

> Seek_Type := Access JO ff set 

> Disks tat. WrJOp := True 

> OverLap 

> IF HOT< ReadBlock > 

> THEN 

SS_RdErr 

> Goto Pro_Rd_£xit 

> WHILE Always DO 

> BlockHumber := BlockHumber + 1 

> IF HOT< SrchJCache > 

> THEN 0<,«erLap 

> IF N0T< WritejCommon > 

> THEH Data_Ex_Handler< Mr JCommon . Error . Code ) 

> IF HOT< Read_Fast ) 

> THEH Goto Pro_Rd_Exit 

> ELSE 

> IF BIkStat. Bad-Block 

> THEN GoTo Pro_Rd_BB 

> IF < Count > 1 ? 

> THEH 

> Command-Pendingj, IBsy := True, Response := SysJ^lr-Resp 

> Rd_Leave2 



ELSE Rd-Lecwe 

> Count := Count - 1 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 
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Sqs-JJr i te : 



SysJ4r^eek : 



Sys-i-Jr-Lp: 



Sys_Mr JOMrLp : 



SysJ4rJ1ext 



Sys_Mr_HS: 



Sys_Ur-J1ore : 



Ld Mrk_lo+$fl,«Sys-Wr_Resp 

Cal I Sys-JSetUp 

Ld Seek_Type,«flcce£s+Offset 

Or Disks tat, «MrJOp 

Call Sys_Rfl>JSeek 

Tffi BlkStat,»B_Block ; check If bad block 

Jr Nz,SysJ4r_BB 

Call WriteBlock 

Jr Nz,SysJ4r_Next 

Jr SysJWrErr 

Cal I Sys_lnc_Blk 

Jr Nz , Sys_Wr JSeek 

Tm DiskStat^«Offset_On ; check for offset on al I writes 

Jr 2,SysJ4rJSeek 

find !rO.*$3F jmask off head value 

Ld Sector, !rO 

Tm B!kStat,»B_Block ; check If bad block 

Jp Hz,Sys_i4r_SB 

Call WriteJFast 

Jr 2^SysJ4rErr 

Ld Mr k_ I o+$fl , «SysJ4r _Resp 

Ld Wrk_ I o+$B . «Cmnd_Pend i nq+ J Bsy+Nu 1 1 i Hr 

Ld Mrk_lo+$C>.HIBVTE. WBufferl 

Ld Urk-lo+$D,«.LOWBVTE. WBufferl 

Djnz !r4,Sys_J»lr_l1ore 

Ld Mrk-lo+$fl,«Sys_MrEnd-JJesp 

Ld Mrk_lo+$B,«CfflndJ=>ending+IBsy 

Cal I Rd_Leaye2 

..Ip RdJLeave 

Call Clr_Bsy 

Jr SysJ«lr J_p 



Sys_WrErr: Call Wr-Coromon ; re try fo^ exception handling 

Jr Nz,SysJ^r_Next 

Call Data_Ex_Handler 

Sys_l4rChk: Call Chk_FatalStat 

Jr Hz,Sqs_i4rE1 





Call 
Jr 


ClrHormStat 
Sys_14r_Mext 


Sys_WrE1: 


Ld 
Jr 


Wrk_l o+$fl . «Sys_MrEx_Resp 
Sys_Ur_HS 


Sy£J4r_BB: 


Call 
Jr 


Mr_BBIock 
Sys_WrChk 
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